home *** CD-ROM | disk | FTP | other *** search
Text File | 1993-10-15 | 2.5 KB | 94 lines | [TEXT/MPS ] |
- #
- # v.rNames
- # MPW Shell script
- # Kerry Laidlaw
- # Apple Computer, Inc.
- #
-
- # Save some initial shell variable values, and set them for our own use
-
- set saveExit {exit}
- set exit 0 # Set exit 0 so we won't abort if status variable is non-zero
- set saveEcho {echo} # echo=1 for echoing each command before execution
- set echo 0
- set saveDir `directory`
-
- # if "{1}" != "-defaults"
- # set MasterFolder "{1}"
- # set rNamesFolder "{2}"
- # end
-
-
-
- for theParameter in {"Parameters"}
- if "{theParameter}" == "-master"
- shift 1
- set MasterFolder "{1}"
- if `evaluate "{MasterFolder}" =~ /:(≈)®1/`
- set MasterFolder "{®1}"
- set MasterFolder "`directory -q`""{MasterFolder}"
- end
- else if "{theParameter}" == "-rnames"
- shift 1
- set rNamesFolder "{1}"
- if `evaluate "{rNamesFolder}" =~ /:(≈)®1/`
- set rNamesFolder "{®1}"
- set rNamesFolder "`directory -q`""{rNamesFolder}"
- end
- else
- shift 1
- end
- end
-
- if ("{MasterFolder}" == "•No Default•") || ∂
- ("{rNamesFolder}" == "•No Default•")
- alert "You must supply a parameter where ever you see:∂n∂n∂t∂t∂t∂t∂t∂t∂t∂t∂t∂t∂t∂t∂t∂"•No Default•∂"∂n∂n∂
- Please select the ∂"Create rNames...∂" menu item again."
- exit 2
- end
-
- set rNames "{rNamesFolder}"rNames: # Update rNames to include the folder name itself.
-
- NewFolder "{rNames}" ≥ dev:null || set ssstatus {status}
- if {ssstatus} != 0
- Alert "The rNames folder already exists. Try deleting it from the Finder and running the Verifier again."
- exit 2
- end
-
- directory "{MasterFolder}" # Set directory to where our US files are located
- directory :: # Back up a level to create the Catalog.US file
-
- # Now catalog the US folder to capture the pathnames so the rNames files can be generated.
-
- files -r -f -s -q "{MasterFolder}" > Catalog.US
- open Catalog.US
- find • Catalog.US
-
- # Loop on the filenames from the US folder
-
- loop
-
- find /•≈∞/ Catalog.US # Get a line from the US list of files.
- break if `count -l "Catalog.US.§"` == 0 # Exit loop if end.
- set USfile "`catenate "Catalog.US.§"`"
- create.rnamefile "{USfile}" "{rNames}"
- set theStatus {status}
- break if "{theStatus}" != 0
- end # End of loop on the files in the US folder
-
- close Catalog.US # close the temp file
- delete Catalog.US # delete the temp file
-
-
- if "{theStatus}" == 0
- Alert "The rNames folder has been completed: ∂n∂t" "{rNames}"
- else
- Alert "rNames folder creation failed."
- delete -y "{rNames}" ≥ dev:null
- end
-
- # Restore shell variables and exit
-
- directory "{saveDir}" # Leave the directory setting unchanged
- set echo {saveEcho} # restore echo
- set exit "{saveExit}"